home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue67 / Alfresco / TstLCS.dpr < prev   
Encoding:
Text File  |  2001-02-05  |  981 b   |  55 lines
  1. program TstLCS;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   Windows,
  7.   SysUtils,
  8.   Classes,
  9.   AALCS in 'AALCS.pas';
  10.  
  11. var
  12.   StrLCS  : TaaStringLCS;
  13.   FileLCS : TaaFileLCS;
  14. begin
  15.   StrLCS := TaaStringLCS.Create('BEGIN', 'FINISH');
  16.   try
  17.     StrLCS.WriteChanges('c:\chg1.log');
  18.   finally
  19.     StrLCS.Free;
  20.   end;
  21.   writeln('Press enter to continue...');
  22.   readln;
  23.  
  24.  
  25.   StrLCS := TaaStringLCS.Create('illiteracy', 'innumeracy');
  26.   try
  27.     StrLCS.WriteChanges('c:\chg2.log');
  28.   finally
  29.     StrLCS.Free;
  30.   end;
  31.   writeln('Press enter to continue...');
  32.   readln;
  33.  
  34.  
  35.   StrLCS := TaaStringLCS.Create('algorithms', 'alfresco');
  36.   try
  37.     StrLCS.WriteChanges('c:\chg3.log');
  38.   finally
  39.     StrLCS.Free;
  40.   end;
  41.   writeln('Press enter to continue...');
  42.   readln;
  43.  
  44.  
  45.   FileLCS := TaaFileLCS.Create('aalcs.~pas', 'aalcs.pas');
  46.   try
  47.     FileLCS.WriteChanges('c:\chgfile.log');
  48.   finally
  49.     FileLCS.Free;
  50.   end;
  51.  
  52.   writeln('Done. Press enter...');
  53.   readln;
  54. end.
  55.